home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ IE Options 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2000-11-18  |  1.8 KB  |  78 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="Advanced Options #1"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.53"
  8. "TEXT 1"="Check for Updates on microsoft.com"
  9. "TEXT 2"="Allow Auto-Setup of components"
  10. "TEXT 3"="Enable disk caching (aka "Temporary Files")"
  11. "DESCRIPTION 1"="Some misc. settings of Internet Explorer you might consider changing."
  12. "DESCRIPTION 2"=""
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"=""
  18.  
  19.  
  20. sV1="HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\NoUpdateCheck"
  21. sV2="HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\NoJITSetup"
  22. sV3="HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\Enable_Disk_Cache"
  23.  
  24.  
  25. 'Called when the Plugin is started
  26. SUB Plugin_Initialize  
  27.   i=RegReadValue(sV1)
  28.   if i<>1 then SetUIElement 1,true
  29.  
  30.   i=RegReadValue(sV2)
  31.   if i<>1 then SetUIElement 2,true
  32.  
  33.   i=RegReadValue(sV3)
  34.   if IsEmpty(i) or i="yes" then SetUIElement 3,true
  35.  
  36.  
  37. END SUB
  38.  
  39. 'Called when the Plugin should validate the Data the user has entered
  40. SUB Plugin_CheckData(ElementIndex)
  41. END SUB
  42.  
  43.  
  44.  
  45. 'Called when the Plugin should apply the changes
  46. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  Call Wrt(1,sV1)
  48.  Call Wrt(2,sV2)
  49.  
  50.  b=GetUIElement(3)
  51.  if b=true then
  52.     Call RegWriteValue(sV3,"yes",1)
  53.  else
  54.     Call RegWriteValue(sV3,"no",1)
  55.  end if
  56.  
  57.  
  58.  Call Restart()
  59. END SUB
  60.  
  61. Sub Wrt(ITM,VAL)
  62.  b=GetUIElement(ITM)
  63.  if b=false then
  64.     Call RegWriteValue(VAL,1,2)
  65.  else
  66.     s=RegReadValue(VAl)
  67.     if IsEmpty(s)=false then
  68.        Call RegDeleteValue(VAL)
  69.     end if
  70.  end if
  71. end sub
  72.  
  73.  
  74. 'Called when the Plugin is about to be removed from memory
  75. SUB Plugin_Terminate
  76. END SUB
  77.  
  78.